home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
tallyho.arc
/
SUMOFYRS.FCP
< prev
next >
Wrap
Text File
|
1990-09-23
|
766b
|
62 lines
@DSPLY "Sum-of-Years'-Digit"
@DSPLY "depreciation method"
@DSPLY "produces a yearly"
@DSPLY "declining deduction"
@DSPLY "by applying a yearly"
@DSPLY "declining fraction to"
@DSPLY "the depreciation base."
=
@NEW STEP
@GET "Cost of the asset"
@RIN (1)
@GET "Estimated life of asset"
@RIN (2)
@GET "Years of prior depr"
@RIN (3)
@GET "Estimated salvage value"
@RIN (4)
@ROUT (1)
-
@ROUT (4)
=
@NEW STEP
@RIN (9)
@ROUT (2)
-
@ROUT (3)
=
@NEW STEP
*
@ROUT (9)
=
@RIN (5)
=
@NEW STEP
@ROUT (2)
+1=
@NEW STEP
/2=
@NEW STEP
*
@ROUT (2)
=
@RIN (6)
=
@ROUT (5)
/
@ROUT (6)
=
@NEW STEP
@DSPLY "This year's depr is"
@GET "0=Quit. 1=Continue."
@IF =
1=
@NEW STEP
@GOTO (2)
=
@NEW STEP
@ROUT (10)
=
@NEW STEP
@STOP